home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / (A)G / (A)G10.ADF / BasicTimers / Q90 (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-03-16  |  391b  |  20 lines
  1. CLS    'Q90  timer
  2. PRINT  "Time","5sec","1 min","PulsePerSec."
  3. PRINT TIME$
  4. STRT:
  5. J$ =  RIGHT$ (TIME$,1)
  6. IF J$ = "0" OR J$ = "5" THEN CN
  7. GOTO STRT
  8. CN:
  9. PRINT TIME$
  10.    FOR t = 1 TO 18   
  11. FOR d = 1 TO 3100
  12. b=b-STRIG(2)
  13. NEXT d
  14. PRINT TIME$,b,b*12"RPM",b/5 "Hz"
  15. m=m+b
  16. b = 0
  17.    NEXT t
  18. PRINT (m/90) * 60"RPM",m/90 "Hz"
  19.  
  20.